16/10/12 17:31
bruno.demarini
Ciao a tutti,
come sapete facendo click destro sul webbrowser si ha la possibilità di fare lo zoom ("Ingrandisci"
. Tutto ok, però vorrei fare questa azione via codice. Qualcuno ha qualche idea?
Grazie!
P.S: Facendo il login ho cliccato anziché su login, sul pulsante subito a destra. Poi sono entrato, però intanto è arrivata l'email "è stata inoltrata una richiesta da tot per resettare la tua password su
pierotofy.it."
Ma non voglio resettare nulla, devo fare qualcosa?
P.P.S: Nel webbrowser io non mostro un sito web, bensì dei file swf
Ultima modifica effettuata da bruno.demarini 16/10/12 19:00
aaa
16/10/12 19:39
Qualcosa del genere
Private Enum Exec
OLECMDID_OPTICAL_ZOOM = 63
End Enum
Private Enum execOpt
OLECMDEXECOPT_DODEFAULT = 0
OLECMDEXECOPT_PROMPTUSER = 1
OLECMDEXECOPT_DONTPROMPTUSER = 2
OLECMDEXECOPT_SHOWHELP = 3
End Enum
e dove ti serve
Try
Dim MyWeb As Object
MyWeb = Me.WebBrowser1.ActiveXInstance
MyWeb.ExecWB(Exec.OLECMDID_OPTICAL_ZOOM, execOpt.OLECMDEXECOPT_PROMPTUSER, 220, IntPtr.Zero)
Catch ex As Exception
MessageBox.Show("Zoom error : " + ex.Message)
End Try
Ultima modifica effettuata da 16/10/12 19:42
16/10/12 20:09
bruno.demarini
Grazie per la risposta, ma avevo già provato questo codice e funziona solo se all'interno del webbrowser mostro un sito web (es:
google.it), mentre se sto mostrando un file swf in locale non funziona... Può darsi che sia dovuto al fatto che si usa ActiveXInstance ?
Comunque ho provato anche a usare il controllo COM Shockwave Flash Object, che permette di mostrare file swf e presenta un metodo Zoom(byval factor as integer) ma quest'ultimo non funziona e non capisco perché... Grazie..
Ultima modifica effettuata da bruno.demarini 16/10/12 20:11
aaa